ocr: embPrevPage Properties fe C.. *4X -E Sub Clicko Scroll one record to the left, if possible. DIM VRec AS Object VRec = trmcontact.GetRecordset () IF VReC.GetCurRow() > 1 THEN VRec.SetCurRow I VRec.GetCurRow() - 1 ) cContactid = VREC.Uetcolval CONTACTID" ) IstContacts.Value = rContactid ELSE BEEP END IF PN Mousebown... D MouseUp...